www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/admin_movefilter.asp
<!-- #include file="config.asp" --> <!-- #include file="style.asp" --> <!-- #include file="admin_verify.asp" --> <% Response.Expires=-1 if isnumeric(Request.Form("filterid")) and Request.Form("filterid")<>"" and (Request.Form("movedirection")="up" or Request.Form("movedirection")="down" or Request.Form("movedirection")="top" or Request.Form("movedirection")="bottom") then filterid1=clng(Request.Form("filterid")) set cn=server.CreateObject("ADODB.Connection") set rs=server.CreateObject("ADODB.Recordset") CreateConn cn,dbtype rs.Open "SELECT filtersort FROM filterconfig WHERE filterid=" &filterid1,cn if rs.EOF=false then qid1=rs(0) rs.Close if Request.Form("movedirection")="up" then rs.Open "SELECT MAX(filtersort) FROM filterconfig WHERE filtersort<" &qid1,cn elseif Request.Form("movedirection")="down" then rs.Open "SELECT MIN(filtersort) FROM filterconfig WHERE filtersort>" &qid1,cn elseif Request.Form("movedirection")="top" then rs.Open "SELECT MIN(filtersort) FROM filterconfig",cn elseif Request.Form("movedirection")="bottom" then rs.Open "SELECT MAX(filtersort) FROM filterconfig",cn end if if rs.EOF=false then qid2=rs(0) rs.Close if qid2<>"" and qid1<>qid2 then rs.Open "SELECT filterid FROM filterconfig WHERE filtersort=" &qid2,cn filterid2=rs(0) rs.Close cn.BeginTrans select case Request.Form("movedirection") case "up","down" rs.Open "UPDATE filterconfig SET filtersort=-1 WHERE filterid="&filterid1,cn rs.Open "UPDATE filterconfig SET filtersort=" &qid1& " WHERE filtersort="&qid2,cn rs.Open "UPDATE filterconfig SET filtersort=" &qid2& " WHERE filtersort=-1",cn case "top" rs.Open "UPDATE filterconfig SET filtersort=filtersort+1 WHERE filtersort<" &qid1,cn rs.Open "UPDATE filterconfig SET filtersort=" &qid2& " WHERE filterid="&filterid1,cn case "bottom" rs.Open "UPDATE filterconfig SET filtersort=filtersort-1 WHERE filtersort>" &qid1,cn rs.Open "UPDATE filterconfig SET filtersort=" &qid2& " WHERE filterid="&filterid1,cn end select cn.CommitTrans end if else rs.Close end if else rs.Close end if cn.Close set rs=nothing set cn=nothing end if Response.Redirect "admin_filter.asp" %>